home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / ADDRESS CHECKER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  20 lines
  1. 10  REM    <CTRL-M>===============<CTRL-M>ADDRESS CHECKER<CTRL-M>BY BEAGLE BROS<CTRL-M>===============
  2. 20  DIM A(120),B(120): FOR A = 0 TO 120:A(A) =  PEEK(A): NEXT : ONERR  GOTO 100
  3. 30  TEXT : PRINT  CHR$(21): HOME : GOTO 100
  4. 40  VTAB 23: HTAB 1: CALL  -958: IF S <0  THEN S = S +65536
  5. 50  IF S >65448  THEN S = 65448
  6. 60  TEXT : VTAB 1: HTAB 1: FOR A = 0 TO 120:AD = S +A:B(A) =  PEEK(AD): PRINT "   <CTRL-H><CTRL-H><CTRL-H>"; SPC( (AD <100) +(AD <10));AD;":";: IF RF = 1  AND B(A) < >A(A)  THEN  FLASH 
  7. 70  PRINT B(A);: NORMAL : PRINT  SPC( (B(A) <10) +(B(A) <100));" ";: IF  PEEK(36) >32  THEN  CALL  -868: PRINT 
  8. 80  IF  PEEK(37) <22  THEN  NEXT 
  9. 90  CALL  -958: FOR A = 0 TO 120:A(A) = B(A): NEXT :RF = 1
  10. 100  VTAB 23: HTAB 1: CALL  -958: POKE 34,22: PRINT "?    R=RUN AT ";S;: HTAB 27: PRINT "C=COMMAND TEST     A=ADDRESS CHANGE     Q=QUIT";: VTAB 23: HTAB 1: GET A$
  11. 110  IF A$ = "Q"  THEN  HOME : TEXT : VTAB 23: END 
  12. 115  IF A$ < >"A"  THEN 130
  13. 120  VTAB 23: HTAB 1: CALL  -958: PRINT : INPUT "ENTER NEW START ADDRESS (0-65446):";S$:N =  VAL(S$): VTAB 23: HTAB 1: CALL  -958:RF = (N = S): IF N < >S  THEN  TEXT : HOME 
  14. 122 S = N: GOTO 40
  15. 130  IF A$ = "R"  THEN 40
  16. 140  IF A$ < >"C"  THEN 100
  17. 150  VTAB 23: HTAB 1: CALL  -958: PRINT : PRINT "ENTER COMMAND:";
  18. 160  GET A$: PRINT A$;: IF A$ < > CHR$(13)  THEN C$ = C$ +A$: GOTO 160
  19. 170  TEXT : VTAB 23: HTAB 1: CALL  -958: PRINT "] ";C$;":GOTO 40": PRINT " ^ TRACE WITH CURSOR & HIT <RETURN>.";: VTAB 22:RF = 1:C$ = "": END 
  20. 65535  REM     <CTRL-M>===============<CTRL-M>ADDRESS CHECKER<CTRL-M>BY BEAGLE BROS<CTRL-M>===============